10 REM********************
20 REM* FIVE ZONE RASTER *
30 REM********************
2000 FORL=0TO26:CX=0:FORD=0TO15:READA:CX=CX+A:POKE2088+L*16+D,A:NEXTD
2010 READA:IFA<>CXTHENPRINT"ERROR IN LINE";2040+(L*10):STOP
2020 NEXTL:END
2040 DATA76,52,8,76,47,9,76,216,8,76,108,9,120,169,127,141,1318
2050 DATA13,220,169,1,141,26,208,173,215,8,133,170,173,177,8,141,1976
2060 DATA18,208,169,27,141,17,208,169,91,141,20,3,169,8,141,21,1551
2070 DATA3,88,96,173,25,208,141,25,208,41,1,240,64,198,170,16,1697
2080 DATA7,173,215,8,133,170,198,170,166,170,189,190,8,141,32,208,2178
2090 DATA189,185,8,141,33,208,189,195,8,141,22,208,189,200,8,141,2065
2100 DATA24,208,189,205,8,141,34,208,189,210,8,141,35,208,189,177,2174
2110 DATA8,141,18,208,138,240,12,234,234,234,234,234,234,104,168,104,2545
2120 DATA170,104,64,76,49,234,32,35,9,1,209,169,138,89,50,57,1486
2130 DATA49,11,12,11,12,11,12,12,12,12,12,8,8,8,8,8,206
2140 DATA20,20,20,20,20,0,0,0,0,0,0,0,0,0,0,5,105
2150 DATA32,174,9,141,73,3,238,73,3,32,174,9,141,66,3,32,1203
2160 DATA249,8,32,60,9,238,66,3,173,66,3,205,73,3,208,242,1638
2170 DATA96,32,35,9,141,65,3,32,35,9,141,68,3,32,35,9,745
2180 DATA141,67,3,32,35,9,141,72,3,208,1,96,32,35,9,141,1025
2190 DATA69,3,32,35,9,141,70,3,96,8,24,32,253,174,32,138,1119
2200 DATA173,32,247,183,165,20,96,32,174,9,141,66,3,32,249,8,1630
2210 DATA32,60,9,96,172,66,3,174,72,3,173,65,3,153,200,8,1289
2220 DATA173,67,3,153,185,8,173,68,3,153,190,8,189,33,9,153,1568
2230 DATA195,8,224,0,208,1,96,173,69,3,153,205,8,173,70,3,1589
2240 DATA153,210,8,96,169,49,160,234,141,20,3,140,21,3,169,0,1576
2250 DATA141,25,208,141,26,208,32,163,253,169,200,141,22,208,32,249,2218
2260 DATA8,173,65,3,141,24,208,173,67,3,141,33,208,173,68,3,1491
2270 DATA141,32,208,174,72,3,189,33,9,173,69,3,141,34,208,173,1662
2280 DATA71,3,141,35,208,96,32,35,9,201,6,144,5,169,5,76,1236
2290 DATA192,9,201,0,208,2,169,1,141,74,3,169,5,56,237,74,1541
2300 DATA3,96,16,254,16,255,0,255,16,255,16,254,0,254,17,254,1961